// joueur_tp.sqf

_n = _this select 0;
_bidule = true ;
_sel=(lbCurSel 10297)+1;


if (_n == 0) then 
{
joueursolo_telep=_sel;
if (blufor_vts) then
{
    call compile format
					["
					if (joueur_noresp_viv%1) then
						{
						code_joueurX = ""user%1"";
						nom_joueurX = name user%1 ;
						} else {code_joueurX = ""user%1"";nom_joueurX = ""Mort"" ;} ;
					",joueursolo_telep];
};	

if (opfor_vts) then
{
    call compile format
					["
					if (joueure_noresp_viv%1) then
						{
						code_joueurX = ""joueure%1"";
						nom_joueurX = name joueure%1 ;
						} else {code_joueurX = ""joueure%1"";nom_joueurX = ""Mort"" ;} ;
					",joueursolo_telep];
};	

if (inde_vts) then
{
    call compile format
					["
					if (joueuri_noresp_viv%1) then
						{
						code_joueurX = ""joueuri%1"";
						nom_joueurX = name joueuri%1 ;
						} else {code_joueurX = ""joueuri%1"";nom_joueurX = ""Mort"" ;} ;
					",joueursolo_telep];
};
  		
};

if (_n == 1) then 
{
  _MydualList2=[];
  _n=1;
 
  while {_n<=nbre_joueursX} do
  {
    _name="";
    _player=objnull;
    call compile format["_name=name user%1;_player=user%1;",_n];
    if (_name=="Error: No unit") then {_name=""};
    if (_name=="Error: No vehicle") then {_name=""};
    if (!isnull _player) then
    {
      if (((getpos _player) select 0)<0 and ((getpos _player) select 1)<0) then {_name=""};
      if (!alive _player) then {_name=""};
    };
    call compile format["_MydualList2 set [count _MydualList2,""user%1  %2""];",_n,_name];
     
     _n=_n+1;
  };
  [10297, _MydualList2] spawn Dlg_FillListBoxLists;
};
	
//ctrlSetText [10295,code_joueurX]; 
//ctrlSetText [10297,nom_joueurX]; 
if (true) exitWith {};
